Public Class ComboFolderItem

    Private _Folder As sforce.Folder
    Public Property Folder() As sforce.Folder
        Get
            Return _Folder
        End Get
        Set(ByVal Value As sforce.Folder)
            _Folder = Value
        End Set
    End Property

    Public Sub New(ByVal Folder As sforce.Folder)
        _Folder = Folder
    End Sub
    Public Overrides Function ToString() As String
        If _Folder.Name.Length = 0 Then
            Return "no name"
        Else
            Return (_Folder.Name)
        End If
    End Function

End Class
